home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 November & December / Amiga-CD 1996 #11-12.iso / pd-disketten / ungepackt / 4_96 / apd-4-96-2 / amiga-e-kurs / listing_1.e < prev    next >
Text File  |  1996-03-13  |  561b  |  20 lines
  1. /* Beispielprogramm zur Umleitung von Ausgaben
  2.    ©1995 Marcel Bennicke */
  3.  
  4. PROC main()
  5.   DEF altes_handle=NIL, handle=NIL
  6.  
  7.   WriteF('Dieses Programm schreibt eine kurze '+
  8.          'Textdatei in Ihre Ram-Disk!\n')
  9.   handle:=Open('ram:Test',NEWFILE)  -> Datei öffnen
  10.   IF handle                         -> geglückt ?
  11.     altes_handle:=SetStdOut(handle) -> umleiten
  12.  
  13.     WriteF('So einfach lassen sich\n')
  14.     WriteF('Ausgaben in E umleiten!\n')
  15.     Close(handle)         -> Datei schließen
  16.  
  17.     SetStdOut(altes_handle) -> Kanal wiederherstellen
  18.   ENDIF
  19. ENDPROC
  20.